home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / qbbs / qbbs276s.zip / RICK-L.ZIP / MAIN-DIR.ZIP / S-VER.Q-A < prev    next >
Text File  |  1992-07-18  |  4KB  |  147 lines
  1. Clearscreen
  2. Changecolor 14 0
  3. Display "    Computer Associates of Louisiana BBS New User Survey | "
  4. Changecolor 7 0
  5. Display "|"
  6. Display "    Due to the volume of requests for access to this System |"
  7. Display "We would like for you to answer a few questions.  Anyone who chooses |"
  8. Display "not to answer, will not gain full access to this BBS!   |"
  9. Display "|"
  10. Display "    This information is needed for my records only. Please take |"
  11. Display "the time to fill in this Survey. This is the only time You will |"
  12. Display "be asked or permitted to Answer these Questions....!|"
  13. Display "|"
  14. Display "     If you have already answered these questions, it is not |"
  15. Display "necessary to do so again.  |"
  16. Display "|"
  17. Display "            Thank You...... Rick Luquette, Sysop"
  18. Display "|"
  19.  
  20. Changecolor 14 0
  21. Display " What is Your Real Full Name (nicknames OK, no aliases please!) |"
  22. Changecolor 3 0
  23. Ask 35 1 10
  24.  
  25. Changecolor 14 0
  26. Display " Is this the name you used to log onto the BBS (Y/N)? |"
  27. Changecolor 3 0
  28. GetChoice YN 2
  29.  
  30. If 2 = "N"
  31. Changecolor 14 0
  32. Display " What is your Log on Name|: "
  33. Changecolor 3 0
  34. Ask 35 3 5
  35. Endif
  36.  
  37. Changecolor 14 0
  38. Display " What is Your Correct Street Address (no PO Boxes, Please!) |"
  39. Changecolor 3 0
  40. Ask 45 4 10
  41.  
  42. Changecolor 14 0
  43. Display " What is Your Correct Town  |"
  44. Changecolor 3 0
  45. Ask 45 5 5
  46.  
  47. Changecolor 14 0
  48. Display " What is the Correct State (or equivalent if not from US) |"
  49. Changecolor 3 0
  50. Ask 20 6 2
  51.  
  52. Changecolor 14 0
  53. Display " What is you Correct ZipCode... (5 or 9 digit code)|"
  54. Display "(or equivalent if not from US)? |"
  55. Changecolor 3 0
  56. Ask 10 7
  57.  
  58. Changecolor 14 0
  59. Display " Is this also your Mailing Address (Y/N) |"
  60. Changecolor 3 0
  61. GetChoice YN 8
  62.  
  63. If 8 = "N"
  64. Changecolor 14 0
  65. Display " Please enter your Mailing Address on two lines. |"
  66. Display " On this line put your P.O. Box or other address: |"
  67. Changecolor 3 0
  68. Ask 50 9
  69. Changecolor 14 0
  70. Display " On This Line Input, City, State & Zip Code or equivalent: |"
  71. Changecolor 3 0
  72. Ask 70 10 10
  73. Endif
  74.  
  75. Changecolor 14 0
  76. Display " What is your age (please be honest)? | "
  77. Changecolor 3 0
  78. Ask 2 11 2
  79.  
  80. Changecolor 14 0
  81. Display " What type of computer do you usually call from? | "
  82. Changecolor 3 0
  83. Ask 20 12 2
  84.  
  85. Changecolor 14 0
  86. Display "Do you operate a public BBS? (Y/N) |"
  87. Changecolor 3 0
  88. GetChoice YN 13
  89.  
  90. If 13 = "Y"
  91. SetFlag C7 On
  92. Changecolor 14 0
  93. Display "What is the name and phone number of your BBS? | "
  94. Changecolor 3 0
  95. Ask 65 14
  96. Endif
  97.  
  98. Changecolor 14 0
  99. Display "Where did you hear about the Computer Associates of Louisiana BBS? | "
  100. Changecolor 3 0
  101. Ask 65 15 5
  102.  
  103. Changecolor 14 0
  104. Display "Is all of the information you entered correct? (Y/N) | "
  105. Changecolor 3 0
  106. GetChoice YN 16
  107.  
  108. If 16 = "Y"
  109. PostInfo
  110. OutputAnswer "Full Real Name : " 1
  111. OutputAnswer "Log On Name    : " 3
  112. OutputAnswer "Street         : " 4
  113. OutputAnswer "City           : " 5
  114. OutputAnswer "State          : " 6
  115. OutputAnswer "Zip Code       : " 7
  116. OutputAnswer "Street/box Mail: " 9
  117. OutputAnswer "City/State/Zip : " 10
  118. OutputAnswer "Current Age    : " 11
  119. OutputAnswer "Computer Type  : " 12
  120. OutputAnswer "BBS            : " 14
  121. OutputAnswer "Referred by    : " 15
  122. Changecolor 15 0
  123. Display "|"
  124. Display "|"
  125. Display "     Thank You For Taking The Time to Answer These Questions !|"
  126. Display "|"
  127. Display "  This Will Save US a lot of Wasted Time and E-mail........|"
  128. Display "|"
  129. Display "|"
  130. Display "     You may now proceed to the Automated Verification System. |"
  131. Display "  It will not be necessary to complete this survey again even if |"
  132. Display "  you must use the AVS more than once.  Thank you for your |"
  133. Display "  cooperation. |"
  134. SetFlag C8 On
  135. SetFlag B8 OFF
  136. Endif
  137.  
  138. If 16 = "N"
  139. Changecolor 15 0
  140. Display "     You will not be allowed to use the Automated Verification |"
  141. Display "  System to obtain full membership until after you have completed |"
  142. Display "  this survey and successfully recorded your answers. |"
  143. Display "     Please try again, and thank you for your cooperation. |"
  144. Changecolor 7 0
  145. Endif
  146.  
  147.